home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / WordUp.dxr / Internal_24_New Behavior.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  842 b   |  48 lines
  1. property pSprite, spriteNum, pnorm, pdown, pover, pfunc
  2. global groupmenu, gsolve
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(spriteNum)
  6.   groupmenu.add(pSprite)
  7.   pSprite.visible = 0
  8.   pnorm = pSprite.member
  9.   pover = member(pnorm.name && "over")
  10.   pover = member(pnorm.name && "down")
  11.   pfunc = pnorm.name.symbol
  12. end
  13.  
  14. on mouseEnter me
  15.   pSprite.member = pover
  16. end
  17.  
  18. on mouseLeave me
  19.   pSprite.member = pnorm
  20. end
  21.  
  22. on mouseDown me
  23.   pSprite.member = pdown
  24. end
  25.  
  26. on mouseUp me
  27.   pSprite.member = pnorm
  28.   if pfunc = #continue then
  29.     repeat with i in groupmenu
  30.       i.visible = 0
  31.     end repeat
  32.     gsolve.member = member("solved")
  33.     sprite(275).pActive = 1
  34.   else
  35.     if pfunc = #restart then
  36.       go("begin")
  37.     else
  38.       if pfunc = #quit then
  39.         gameEnd(#lose)
  40.       end if
  41.     end if
  42.   end if
  43. end
  44.  
  45. on mouseUpOutSide me
  46.   mouseUp(me)
  47. end
  48.